(display "Testing let with begin\n")
(display (let ((x 1))
    (begin
        (define y 2)
        (+ x y))))
(display "\n")